home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk122 / bassub / about.sub < prev    next >
Text File  |  1995-03-19  |  910b  |  31 lines
  1. REM About
  2. 'Displays a requestor box with 6 lines of text
  3. 'usable for displaying a message about the program
  4. 'x%, y% are the x and y line positions (not pixels)
  5. 's1$ through s6$ are the message text
  6. '
  7. SUB About(x%,y%,s1$,s2$,s3$,s4$,s5$,s6$)
  8.     s1$=SPACE$(31-LEN(s1$))+s1$
  9.     s2$=SPACE$(31-LEN(s2$))+s2$
  10.     s3$=SPACE$(31-LEN(s3$))+s3$
  11.     s4$=SPACE$(31-LEN(s4$))+s4$
  12.     s5$=SPACE$(31-LEN(s5$))+s5$
  13.     s6$=SPACE$(31-LEN(s6$))+s6$
  14.     
  15.     height%=PEEKW(WINDOW(8)+58)
  16.     winwidth%=LEN(s1$)*(8-2*(height%=9))+40
  17.     LINE (x%*8-16,y%*8-12)-(winwidth%+x%*8,60+y%*8),3,b
  18.     LINE (x%*8-18,y%*8-13)-(winwidth%+x%*8+3,61+y%*8),2,b
  19.     LOCATE y%,x% : PRINT " ";s1$
  20.     LOCATE y%+1,x% : PRINT " ";s2$
  21.     LOCATE y%+2,x% : PRINT " ";s3$
  22.     LOCATE y%+3,x% : PRINT " ";s4$
  23.     LOCATE y%+4,x% : PRINT " ";s5$
  24.     LOCATE y%+5,x% : PRINT " ";s6$
  25.     LOCATE y%+7,x%+LEN(s1$)/2 : PRINT " ";
  26.     CALL SmallTxBox("Ok")
  27.     CALL WaitBox(which%)
  28.     CALL FlashRelease(which%)
  29.     CLS
  30. END SUB
  31.